home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb9.arc / DECBIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-12-12  |  473 b   |  21 lines
  1. PROGRAM DecimalToBinary;
  2. Type
  3.   Btype = array[1..17] of char;
  4. Var
  5.   intgr   :  integer;
  6.   binry   :  Btype;
  7.   quit    :  Boolean;
  8. {$I decbin.inc }
  9. Begin
  10.   Writeln('Decimal to Binary conversion program.  Enter integer.  Enter neg. # to quit.');
  11.   Writeln;
  12.   quit := false;
  13.   repeat
  14.     write('Enter integer:  ');
  15.     read(intgr);
  16.     if intgr < 0 then quit := true;
  17.     DecBin(intgr,binry);
  18.     writeln('    =     binary:  ', binry);
  19.   until quit;
  20. End.
  21.